home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-websites-
/
wirenet
/
files
/
thor26_arexx.lha
/
Rexx
/
FSE
/
Unquote.fse
< prev
Wrap
Text File
|
1999-01-17
|
529b
|
31 lines
/*
** $VER: Unqoute.fse 1.0 (6.9.95)
** - reduce the layer of qoute chars (">") in a block of text
** to just one level.
*/
options results
YPOS
currline = result
XPOS
currcolumn = result
MSGLENGTH
lastline = result
do i=currline to lastline
SETPOS 1 i
GETLINE
line = result
if(line ~= "") then do
DELETELINES
NEWLINE
SETPOS 1 i
INSERTINPUT ">"||strip(line, L, ">")
end
else break
end
SETPOS currcolumn currline